<script>on mouseDownset the hilite of the target to trueend mouseDownon mouseUp -- 6/23/92-- set the rect of field letter1 to 120,293,145,317-- set the rect of field letter1 to 216,293,241,317if the optionKey is down thenset the hilite of the target to trueif "•" is not in field myPuzzle thenset the hilite of the target to falseexit mouseUpend ifif line 2 of field record = "solution given" thenanswer "The solution to this cryptogram has been given." ¬&& "Cannot give you any free letter substitutions."set the hilite of the target to falseexit mouseUpend ifif line 1 of field record <= 0 thenanswer "Sorry, can’t give you any more free letter substitutions."set the hilite of the target to falseexit mouseUpend ifsubtract 1 from line 1 of field recordput the random of (the number of lines of field key) into randTempif the checkMark of menuItem "Difficult Puzzle" of menu "Cryptogram" = true thenput editString("ucase",last char of line randTemp of field key) into field "letter1"put editString("ucase",char 1 of line randTemp of field key) into field "letter2"elseput last char of line randTemp of field key into field "letter1"put char 1 of line randTemp of field key into field "letter2"end ifdelete line randTemp of field keyend ifif "•" is not in field myPuzzle and ¬line 3 to (the number of lines of field record) of field record = field myPuzzle thenanswer "The puzzle has been solved!"set the hilite of the target to falseput empty into field letter1put empty into field letter2exit mouseUpend ifif field "letter1" = empty or field "letter2" = empty thenanswer "Entry is incomplete…"set the hilite of the target to falseexit mouseUpend ifreplaceInAlphabetif field "alphabet" contains field "letter2" thenput offset (field letter2, field "alphabet") into thePositionput "•" into char thePosition of field "alphabet"-- SET THE ENABLED OF MENUITEM "DIFFICULT PUZZLE" OF MENU CRYPTOGRAM TO FALSEend ifset cursor to 4if field "letter2" is in field myPuzzle thenrepeat until field "letter2" is not in field myPuzzleput offset (field "letter2", field myPuzzle) into deletePositionput "•" into char deletePosition of field myPuzzleend repeatend ifput field cryptoPuzzle into cryptoPuzzleTemp-- lock screenif the checkMark of menuItem "Difficult Puzzle" of menu "Cryptogram" ¬= true thenput field "letter2" into ucTemprepeat until field "letter1" is not in cryptoPuzzleTempput offset (field "letter1", cryptoPuzzleTemp) into letterPositionput ucTemp into char letterPosition of field myPuzzleput "•" into char letterPosition of cryptoPuzzleTempend repeatelseput editString("ucase",field "letter2") into ucTemp-- put numToChar of (charToNum of field "letter2" - 32) into ucTempput numToChar of (charToNum of field "letter2") into lcTemprepeat until field "letter1" is not in cryptoPuzzleTempput offset (field "letter1", cryptoPuzzleTemp) into letterPositionif charToNum of char letterPosition of cryptoPuzzleTemp ¬>= 65 and charToNum of char letterPosition of cryptoPuzzleTemp¬<= 90 thenput ucTemp into char letterPosition of field myPuzzleelseput lcTemp into char letterPosition of field myPuzzleend ifput "•" into char letterPosition of cryptoPuzzleTempend repeatend ifif field key contains field "letter2" && "=" && field "letter1" thenfind whole (field letter2 && "=" && field letter1) in field keydelete the foundLineend ifglobal thePuzzleSolved,next_field_nameput "letter1" into next_field_nameif "•" is not in field myPuzzle and ¬thePuzzleSolved = field myPuzzle thenvictoryend iflock Screenset the hilite of the target to falseput empty into field "letter1"put empty into field "letter2"end mouseUp</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>21</left>
<top>92</top>
<right>493</right>
<bottom>238</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Monaco</font>
<textSize>12</textSize>
<textStyle>extend</textStyle>
<textHeight>36</textHeight>
<name>cryptopuzzle</name>
<script></script>
</part>
<part>
<id>18</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>24</left>
<top>71</top>
<right>491</right>
<bottom>89</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<textHeight>16</textHeight>
<name>clue</name>
<script></script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>19</left>
<top>290</top>
<right>45</right>
<bottom>325</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17264</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>About</name>
<script>on mouseUplock screenHide bkgnd btn "About"hide card btn "Quit"hide bkgnd field pressAlphabetset the rect of field instructions to 8,7,506,335set the scroll of field instructions to 0show field instructionsunlock Screen with dissolve very fastend mouseUp</script>
</part>
<part>
<id>102</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>60</left>
<top>295</top>
<right>219</right>
<bottom>315</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>216</left>
<top>293</top>
<right>241</right>
<bottom>317</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Monaco</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>letter2</name>
<script>on closeFieldglobal next_field_nameput "letter1" into next_field_nameend closeField</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>120</left>
<top>293</top>
<right>145</right>
<bottom>317</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Monaco</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>letter1</name>
<script>on closeFieldglobal next_field_nameput "letter2" into next_field_nameend closeField</script>
</part>
<part>
<id>27</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>372</left>
<top>1</top>
<right>509</right>
<bottom>50</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>9</textHeight>
<name>record</name>
<script></script>
</part>
<part>
<id>28</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>24</left>
<top>50</top>
<right>491</right>
<bottom>72</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Monaco</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>alphabet</name>
<script></script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>3</left>
<top>1</top>
<right>238</right>
<bottom>50</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>10</textHeight>
<name>sayings</name>
<script></script>
</part>
<part>
<id>1</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>3</left>
<top>52</top>
<right>59</right>
<bottom>296</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>N Helvetica Narrow</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>10</textHeight>
<name>key</name>
<script></script>
</part>
<part>
<id>100</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>21</left>
<top>266</top>
<right>495</right>
<bottom>287</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Monaco</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>pressAlphabet</name>
<script>on mouseDownput word 2 of the clickChunk into theLetterif the value of the clickChunk is in "abcdefghijklmnopqrstuvwxyz" thenselect char (theLetter - 1) to (theLetter + 1) of the targetglobal next_field_nameput the value of the clickChunk into field next_field_namesend closeField to field next_Field_nameelseif there is a menu "Cryptogram" thenif the checkMark of menuItem "Sound" of menu "Cryptogram" = true thenplay fluteelseflashend ifend ifexit mouseDownend ifend mouseDown</script>
</part>
<part>
<id>104</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>358</left>
<top>293</top>
<right>448</right>
<bottom>316</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<name>New Puzzle</name>
<script>on mouseUP -- NEW PROCEDURE TO SCRAMBLE LETTERS 7/11/92global scrambleTimerif the optionKey is down thenput "true" into optionKeyDownput "stop" into scrambleTimerelseput "false" into optionKeyDownput the seconds into scrambleTimerend ifinitializeFieldsif there is no menu "Cryptogram" then createCryptogramMenuset enabled of menuItem "Difficult Puzzle" of menu "Cryptogram" to false-- PICKS THE CLUE AND PUZZLE FROM FIELD SAYINGS 6/22/92put return & "Generating the cryptogram…" & return & "Picking the puzzle" into cd field updatelock screenput the random of 2 into tossUpset itemdelimiter to tabif optionKeydown = true thenput cd field inorder into randNoif item 2 of line randNo of field sayings = empty thenput "Puzzle #" & randNo into field clueelseif tossUp = 2 thenput "Puzzle #" & randNo into field clueelseput "Puzzle #" & randNo & ": " & item 2 of line randNo of field sayings into field clueend ifend ifadd 1 to cd field inordersend closeField to cd field inorderelseput the random of (the number of lines of field sayings) into randNoif tossUp = 2 thenput empty into field clueelseput item 2 of line randNo of field sayings into field clueend ifend ifput item 3 of line randNo of field sayings into field puzzletoggleDifficultPuzzleglobal alphabetMemoryput field "alphabet" into alphabetMemoryunlock Screen with dissolve very fastput "abcdefghijklmnopqrstuvwxyz" into decodeAlphabetput "abcdefghijklmnopqrstuvwxyz" into encodeAlphabetrepeat with x = 1 to the number of chars of decodeAlphabetif char x of decodeAlphabet is in field puzzle thenput char x of decodeAlphabet into decodeLetterput the random of the number of chars of encodeAlphabet into theNumberput char theNumber of encodeAlphabet into encodeLetterput decodeLetter && "=" && encodeLetter & return after keyMemorydelete char theNumber of encodeAlphabetend ifend repeatput keyMemory into field key-- CONVERTS PUZZLE TO CAPS WHEN "DIFFICULT PUZZLE" IS CHOSEN-- USING editString("UCase", source) XCMDglobal puzzleMemory,thePuzzleSolvedput field puzzle into puzzleMemoryput field puzzle into thePuzzleSolvedif the checkMark of menuItem "Difficult Puzzle" of menu "Cryptogram" = true thenput editString("UCase", puzzleMemory) into puzzleMemoryput puzzleMemory into field puzzleput editString("UCase", thePuzzleSolved) into thePuzzleSolvedrepeat with x = 1 to the number of chars of thePuzzleSolvedif charToNum of char x of thePuzzleSolved = 64 then put return ¬into char x of thePuzzleSolvedend repeatelserepeat with x = 1 to the number of chars of thePuzzleSolvedif charToNum of char x of thePuzzleSolved = 64 then put return ¬into char x of thePuzzleSolvedend repeatend ifput thePuzzleSolved into line 3 of field record-- CALCULATES THE NUMBER OF FREE HELPSput (the number of words of thePuzzleSolved - 1) into theSpacesput (the number of chars of thePuzzleSolved) into theCharsput (theChars - theSpaces) into theCharsif theChars <= 25 then put 0 into line 1 of field recordelseif theChars >= 22 and theChars <= 44 then put 1 into line 1 of field recordelseif theChars >= 45 and theChars <= 60 then put 2 into line 1 of field recordelseif theChars >= 61 and theChars <= 81 then put 3 into line 1 of field recordelseif theChars >= 82 and theChars <= 100 then put 4 into line 1 of field recordelseif theChars >= 101 then put 5 into line 1 of field recordend ifend ifend ifend ifend if-- GENERATING CRYPTOGRAMput the number of chars of field puzzle into howManyput return & "Generating the cryptogram…" & return & ¬"Characters left to scramble: " & howMany into cd field updateput field puzzle into puzzleTempput empty into myPuzzleTempput empty into cryptoPuzzleTemprepeat with x = 1 to the number of chars of puzzleTempif last char of howMany = 0 thenput howMany into last word of cd field updateend ifsubtract 1 from howManyput charToNum of char x of puzzleTemp into IDnumberput offset (char x of puzzleTemp && "=",keyMemory) + 4 into encPositionif IDnumber >= 97 and IDnumber <= 122 thenput char encPosition of keyMemory into theCharelse if IDnumber >= 65 and IDnumber <= 90 thenput (charToNum of char encPosition of keyMemory - 32) into theCharput numToChar of theChar into theCharend ifif IDnumber >= 97 and IDnumber <= 122 thenput "•" after myPuzzleTempput theChar after cryptoPuzzleTempnext repeatelse if IDnumber >= 65 and IDnumber <= 90 thenput "•" after myPuzzleTempput theChar after cryptoPuzzleTempnext repeatelse if IDnumber >= 64 thenput return after myPuzzleTempput return after cryptoPuzzleTempnext repeatelse if IDnumber = 201 or ¬IDnumber >= 32 and IDnumber <= 63 or ¬IDnumber >= 210 and IDnumber <= 213 thenput char x of puzzleTemp after myPuzzleTempput char x of puzzleTemp after cryptoPuzzleTempend ifend repeathide cd field updatelock Screenput myPuzzleTemp into field myPuzzleglobal myPuzzleMemoryput myPuzzleTemp into myPuzzleMemoryput cryptoPuzzleTemp into field cryptoPuzzleglobal next_field_nameput "letter1" into next_field_nameunlock Screen with dissolve very fasthide msgif there is a menu "Cryptogram" and the checkMark of ¬menuItem "Sound" of menu "Cryptogram" = true thenplay "flute" tempo 300 "C3e. E G C4w"end ifget the freeSize of this stackif it >= (the Size of this stack * .25) then compactThisStackend mouseUp</script>
</part>
<part>
<id>21</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>8</left>
<top>7</top>
<right>506</right>
<bottom>335</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<textHeight>16</textHeight>
<name>instructions</name>
<script>on mouseUplock ScreenHide field "instructions"show bkgnd field pressAlphabetshow bkgnd btn "About"show card btn "Quit"unlock Screen with dissolve very fastend mouseUp</script>
</part>
<name>Cryptogram bkgnd</name>
<script>on replaceInAlphabetlock screenput offset (field "letter1", field cryptoPuzzle) into letterPlaceif char letterPlace of field myPuzzle ≠ "•" thenput char letterPlace of field myPuzzle into letterTempglobal alphabetMemoryput offset (letterTemp, alphabetMemory) into replaceHereif the charToNum of letterTemp >= 65 and charToNum of letterTemp ¬<= 90 thenput numToChar of (charToNum of letterTemp + 32) into letterTempend ifput letterTemp into char replaceHere of field "alphabet"end ifif the checkMark of menuItem "Difficult Puzzle" of menu "Cryptogram" ¬= true thenput editString("ucase",field alphabet) into field alphabetend ifunlock screenend replaceInAlphabeton victory -- 6/24/92set the enabled of menuitem "Difficult Puzzle" of menu "Cryptogram" to trueput line 3 to (the number of lines of field record) of field record into field myPuzzleput the random of 5 into tuneNumberif tuneNumber = 1 then-- FOR HE'S A JOLLY GOOD FELLOWput 200 into theTempoput "d4e eq ee ee de ee fq. eq" &&¬"e4e dq de de ce de eq. cq" &&¬"d4e eq ee ee de ee fq. ah." &&¬"gq ge ae ge fq de cq" into playTuneelse if tuneNumber = 2 then-- TARENTELLAput 250 into theTempoput "A3e B C4 B3 A E4q Ee A3q Ae F4q Fe A3q Ae E4h. 0e B3 C4 D C" &&¬"B3 C4q Ce A3q Ae Bq Be Fq Fe Bq Be Eq. 0e A3 B C4 B3 A E4q Ee" &&¬"Eq Ee Eq Ee Eq Ee Ah. 0e A4 B C5 B4 A G G5 F E D C B4 A G F" &&¬"E D Cw." into playTuneelse if tuneNumber = 3 then-- GAVOTTE AND VARIATION?put 128 into theTempoput "B5q Ge. Es De. Bs Ce. As Bq Ge. Es De. Bs Ce. As B A# B F# G" &&¬"F# G D# E D# E B4 C5 B4 C5 A4 B A B F# G F# G D# E D# E B3 C4" &&¬"B3 C4 F# Gq F#e. Es Dh Gq F#e. Es Dh Gq D G D Ge. Ds Ge. Ds" &&¬"Ge. Ds G4e. Ds Gw." into playTuneelse if tuneNumber = 4 then-- Wachet Augput 100 into theTempoput "Bb3e Eb4s F G 0 G4e F Ab G Bb3 Ab G4s Eb Fe Ab3 G D4 Eb 0 Bb3" &&¬"Eb4s F G 0 G4e F Ab G Bb3 Ab G4s Eb Fe Ab3 G D4 Eb 0w." into playTuneelse if tuneNumber = 5 then-- Alla Turkaput 180 into theTempoput "B4s A G# A C5e. 0 D5s C B4 C5 Ee. 0 F5s E D# E B A G# A B A G#" &&¬"A C6q A5e B C6 B5 A G# A E F D Ce. 0s C5 B4 C5 B4 Aq" into playTuneend ifhide btn "okay"hide btn "Cancel"hide cd field myGuessshow field cryptoPuzzleif there is a menu "Cryptogram" thenif the checkMark of menuItem "Sound" of menu "Cryptogram" = true thenplay flute tempo theTempo playTuneend ifend ifanswer "Congratulations! You've solved the puzzle!" ¬with "Thank You!"end victory</script>
 (January 1993).iso/Files/Game/C/Cryptogram VI.cpt/Cryptogram VI/BMAP_2260.png){kind=link}